#!/usr/bin/env tclsh

#简单变量
set var1 2
puts "var1 = $var1"

#所有字符串都可以是变量
set {hello world} 2 
puts "${hello world}"

#{}中间的内容不会做任何替换操作
set var2 {hello $var1} ; #输出   hello $var1
puts $var2

#数组
set arr(monday) 1
set arr(tuesday) 2
puts "$arr(monday) $arr(tuesday)"

# append 操作
set var3 "hello , worker!"
puts ------------------
append var3 "I'am yhp!"
puts $var3

# incr操作 加上一个整数
puts ++++++++++++++
set n1 2
puts "n1 = $n1"
incr n1 3 ;#加上 n1+3
puts "n1 = $n1"


